home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 1
/
Cream of the Crop 1.iso
/
WINDOWS
/
CP_72A.ARJ
/
CMDUSER.CP$
< prev
next >
Wrap
Text File
|
1992-02-15
|
7KB
|
208 lines
; The AUTOEXEC section of the menu is up here, before the first menu item
; Here is a sample autoexec section
Terminate(IsRunning(),"","") ;Only do autoexec on 1st CmdPost
Dirchange("C:\") ;Change to root of C drive
SetDisplay("","","") ;Lock dirchange into display
crlf=strcat(num2char(13),num2char(10))
;Run("clock.exe","") ;sample run line
&Accessories
&Appointment Calendar
run("Calendar.exe","appoint.cal")
Cloc&k
run("clock.exe","")
&Calculator
run("calc.exe","")
Card&file
run("cardfile.exe","")
Paint &Brush
run("pbrush.exe","")
&PIF Editor
run("pifedit.exe","")
P&IF Editor <w/filename>
run("pifedit.exe",CurrentFile())
&Recorder
run("recorder.exe","")
&Terminal
run("terminal.exe","")
&Write
run("write.exe","")
&Winapps
&Excel
Message("EXCEL","Your newest release of Excel goes here!%crlf% Edit this menuitem to make it run your copy of Excel")
;DirChange("C:\EXCEL")
;run("excel.exe","")
&PageMaker
Message("PageMaker","Your newest release of PageMaker goes here!%crlf% Edit this menuitem to make it run your copy of PageMaker")
;DirChange("C:\PM")
;run("pm.exe","")
&Corel Draw
Message("COREL DRAW","Your newest release of Corel Draw goes here!%crlf% Edit this menuitem to make it run your copy of Corel Draw")
;DirChange("C:\COREL")
;run("coreldrw.exe","")
&SuperBase 4
Message("SuperBase 4","Your newest release of SuperBase 4 goes here!%crlf% Edit this menuitem to make it run your copy of SuperBase 4")
;DirChange("C:\SB4")
;run("sb4w.exe","")
&Word 4 Windows
Message("Word For Windows","Your newest release of Word for Windows goes here!%crlf% Edit this menuitem to make it run your copy of Word for Windows")
;DirChange("C:\WINWORD")
;run("winword.exe","")
_&How do I add my stuff to these menus
crlf=strcat(num2char(13),num2char(10))
a= "The best way to start is to read the manual."
b= "Next, edit CMDUSER.CPM to add your own menus."
c= "It can be as easy as writing .BAT files."
d= "But it can be as powerful and complex as you need."
a= strcat (a,crlf, b,crlf,crlf, c,crlf, d)
Message ("How-2-do-Menus",a)
drop(a,b,c,d)
&Games
; These games here are available either with Windows or on many Windows BBS systems
; There are a LOT of games for windows available
&BackGammon
runzoom("backgamm.exe","")
&Fish (from lake Bill)
runzoom("fish.exe","")
&Guts
runzoom("guts.exe","")
&Reversi
runzoom("reversi.exe","")
&Solitare
runzoom("sol.exe","")
&Mines
runzoom("winmine.exe","")
_Games
Message("GAMES","Edit this menu item to tell CmdPost where your game directroy is")
;DirChange("O:\MAIN\MUSEMENT")
;a=FileItemize("*.exe")
;a=ItemSelect("Choose a Game",a," ")
;runzoom(a,"")
&SubDirs
&Windows
DirChange(DirWindows(0))
SetDisplay("","","") ;The setdisplay stmt locks in the current dir
&DOS
DirChange("C:\DOS")
SetDisplay("","","")
&TEMP
DirChange(Environment("TEMP"))
SetDisplay("","","")
&Clipboarding
Path and Filename to Clipboard
Clipput(strcat(DirGet(),CurrentFile()))
Copy &Directory to Clipboard
a=FileItemize("*.*")
a=StrReplace(a," ",crlf)
ClipPut(a)
Drop(a)
Copy &Hilited files to Clipboard
a=FileItemize("")
a=StrReplace(a," ",crlf)
ClipPut(a)
Drop(a)
Copy &Special Characters to Clipboard
a=" í| ó| ú| ñ| Ñ| ª| º| ¿| ⌐| ¬|" ;161 thru 170
b=" ½| ¼| ¡| «| »| ░| ▒| ▓| │| ┤|" ;171 thru 180
c=" ╡| ╢| ╖| ╕| ╣| ║| ╗| ╝| ╜| ╛|" ;181 thru 190
d=" ┐| └| ┴| ┬| ├| ─| ┼| ╞| ╟| ╚|" ;191 thru 200
e=" ╔| ╩| ╦| ╠| ═| ╬| ╧| ╨| ╤| ╥|" ;201 thru 210
f=" ╙| ╘| ╒| ╓| ╫| ╪| ┘| ┌| █| ▄|" ;211 thru 220
g=" ▌| ▐| ▀| α| ß| Γ| π| Σ| σ| µ|" ;221 thru 230
h=" τ| Φ| Θ| Ω| δ| ∞| φ| ε| ∩| ≡|" ;231 thru 240
i=" ±| ≥| ≤| ⌠| ⌡| ÷| ≈| °| ∙| ·|" ;241 thru 250
j=" √| ⁿ| ²| ■| " ;251 thru 255
a=strcat(a,b,c,d,e,f,g,h,i,j)
Drop(b,c,d,e,f,g,h,i,j)
a=ItemSelect("Choose a character",a,"|")
a=strsub(a,2,1)
ClipPut(a)
Drop(a)
_Start &Clipboard
errormode(@off)
terminate(winactivate("Clipboard"),"","") ;Already Running
errormode(@cancel)
run("Clipbrd.exe","")
PKZIP
Zip Current File
f=CurrentFile()
fr=strcat(FileRoot(f),".zip")
a=AskLine("Zip File","Enter desired ZIP name",fr)
if a=="" then exit
Run("pkzip.exe","%a% %f%")
Zip Directory
a=AskLine("Zip Directory","Enter desired ZIP name","")
if a=="" then exit
Run("pkzip.exe","-m %a% *.*")
Zip Structure
a=AskLine("Zip Structure","Enter desired ZIP name","")
if a=="" then exit
Run("pkzip.exe","-m -r -p %a% *.*")
View Zip file
a=CurrentFile()
if FileExtension(a)=="ZIP" then goto cont
b=FileItemize("*.ZIP")
terminate(b=="","View Zip File","No ZIP files found")
a=itemselect("View Zip File",FileItemize("*.ZIP")," ")
if a=="" then exit
:cont
Run("cp_pause.bat","pkunzip.exe -v %a%")
&Multimedia
Play WAV file
a=CurrentFile()
if FileExtension(a)=="WAV" then goto play
a=FileItemize("*.wav")
if a!="" then goto sel
dirchange(DirWindows(0))
;dirchange("o:\main\mmdata") ;wherever you keep your WAV files
a=fileitemize("*.wav")
:sel
a=itemselect("Waveform",a," ")
if a=="" then exit
:play
playwaveform(a,1)
Play MID file
a=CurrentFile()
if FileExtension(a)=="MID" then goto play
a=FileItemize("*.mid")
if a!="" then goto sel
dirchange(DirWindows(0))
;dirchange("o:\main\mmdata") ; whereever you keep your MID files
a=fileitemize("*.mid")
:sel
a=itemselect("MIDI Player",a," ")
if a=="" then exit
:play
a=strcat(DirGet(),a)
playmidi(a,1)
Play a Music CD
PlayMedia("open cdaudio shareable alias dona notify")
PlayMedia("set dona time format tmsf")
PlayMedia("play dona from 1")
PlayMedia("close dona")